00100		TITLE	FILBRK
00200	
00300		ENTRY	FILBRK
00400		EXTERN	DEV
00500		INTERN	FNAM,DLK,ASTR
00600	
00700		WD=7
00710	Z←0
00800	
00900	ASTR:	ASCIZ/
01000	*/
01100	ZERSUB:	Z
01200		MOVE	PT2
01300		MOVEM	PT
01400		SETZB	1,WD
01500		JRST	@ZERSUB
01600	
01700	COMSUB:	CAIN	15
01800		JRST	[MOVEI	10,EOJ
01900		JRST	(16)]
02000		CAIN	"["
02100		JRST	[MOVEI	10,GTPROJ
02200		JRST	(16)]
02300		CAIE	"."
02400		JRST	2(16)
02500		MOVEI	10,GTEXT
02600		JRST	(16)
02700	
02800	FSUB:	JSP	16,COMSUB
02900		MOVEM	WD,FNAM
03000		JRST	(10)
03100		CAIL	1,6
03200		JRST	.+3
03300		SUBI	40
03400		IDPB	PT
03500		AOJA	1,(15)
03600	
03700	ACS:	BLOCK	20
03800	
03900	FNAM:DLK:	Z
04000	EXT:	Z
04100		Z
04200	PPN:	Z
04300	PT:	POINT	6,WD
04400	PT2:	POINT	6,WD
04500	
04600	FILBRK:	Z
04700		MOVEM	17,ACS+17
04800		MOVEI	17,ACS
04900		BLT	17,ACS+16
05000	ST:	MOVSI	'DSK'
05100		MOVEM	DEV
05200		SETZB	FNAM
05300		MOVEM	FNAM+1
05400		MOVEM	FNAM+2
05500		MOVEM	FNAM+3
05600		OUTSTR	ASTR
05700	GTDEV:	JSR	ZERSUB
05800		MOVEI	15,.+1
05900		INCHWL
06000		CAIE	":"
06100		JRST	FSUB
06200		MOVEM	WD,DEV
06300	GTFNAM:	JSR	ZERSUB
06400		MOVEI	15,.+1
06500		INCHWL
06600		JRST	FSUB
06700	GTEXT:	JSR	ZERSUB
06800		INCHWL
06900		JSP	16,COMSUB
07000		MOVEM	WD,EXT
07100		JRST	(10)
07200		CAIL	1,3
07300		JRST	.+3
07400		SUBI	40
07500		IDPB	PT
07600		AOJA	1,GTEXT+1
07700	
07800	GTPROJ:	SETZB	1,2
07900		INCHWL
08000		CAIN	","
08100		JRST	GTPROG
08200		SUBI	60
08300		CAILE	7
08400		JRST	ERR
08500		ASH	2,3
08600		JOV	ERR
08700		HRLZS
08800		ADD	2,
08900		JOV	ERR
09000		JRST	GTPROJ+1
09100	
09200	GTPROG:	INCHWL
09300		CAIE	15
09400		CAIN	"]"
09500		JRST	COMBIN
09600		SUBI	60
09700		CAILE	7
09800		JRST	ERR
09900		ASH	1,3
10000		JOV	ERR
10100		HRLZS
10200		ADD	1,
10300		JOV	ERR
10400		JRST	GTPROG
10500	COMBIN:	HLR	2,1
10600		MOVEM	2,PPN
10700	EOJ:	CLRBFI
10800		MOVSI	17,ACS
10900		BLT	17,16
11000		MOVE	17,ACS+17
11100		JRA	16,(16)
11200	ERR:	CLRBFI
11300		OUTSTR	[ASCIZ/?IMPROPER SYNTAX?
11400	/]
11500		JRST	ST
11600		END